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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* 
® 
® 
oe 
® 
THIS SOFTWARE IS FURNISHED UNDER A L!CENSE AND MAY BE USED AND gh by * 
Ne éf men E WITH THE TE TH THE * 
® 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. . 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
® 
* 
* 
& 
2 
* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
facility: 


VAX/VMS PL1 runtime Library 
abstract: 


SoOoOOCSCOSSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOSOSOOSOOSOOOSOOOSoOO 
SOSSSSSOOSOSOSOSOOSCOSOSOSOSOSOSOOSOSOOOSOOSOSOOOSOSOOoOO 


SOoooooooccooooOCooooooooooooooooooooooooooooooooooOooooOoooOOoOO 


00 This module contains the pl1 runtime routines to put items to a 

oo pli stream file under edit controlled format. 

00 Es 

00 author: c. spitz 28-nov-79 ot 
modified: 


© 


DOte Gerthent 23-0ct-1981 


"added code to clear the recursion bit at the end of an item's 
processing so that the inline code for the next item is able to 
call functions which also do I/0. 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
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PLISPUTEDITITEM 16-SEP-1984 02:23:21 VAX/VMS Macro v04-00 Page 2 | 
5 +008 aes 94:93:3) EPLIRTL. SREIPLIPUTEDI MARS 1 ° (1) | 
09 28 : external definitions 
60 $deffcb sdefine file control block 
8 61 $Sdefstk define stack frame offsets 
°¢ $defstr define stream block offsets 
00 6 $Sdefdat sdefine operand node data types | 
888 64 $Sdefgetopt idefine get options block 
000 65 $defcvtind sdefine convert case indices | 
0000 96 Srabdef idefine rms rab offsets 
Ba 08 6 Srmsdef :define rms error codes 
000 rt: 
$509 5 3; local data 
0000 71; 
0000 7 
0000 7 rtshare sharable 
0000 74 
0000 75 3+ 
0000 76 ; pli$puterrre 
0000 ee | 
0000 78 ; the pli$putet*** routines are called by the compiled code to put items 
0000 79 ; to a stream output file under edit directed transmission. each routine 
0000 80 ; pushes the source item descriptor, along with its data type, and jumps 
0000 81 ; to pli$$putfmt_ré. 
0000 Hf 3so° 
0000 8 
0000 84 ;pli$putechar_r6 
0000 85 ; inputs: 
0000 86 ; r0 - address of element to put 
0000 a7 : ri - size/prec of element to put 
0000 88 ; r11 = address of stream block 
0000 89 ; ap - address of file control block 
0000 90 ; outputs: 
0000 91; none 
0000 8 3; side effects: 
0000 935 3 r0-r& are destroyed 
0000 94 
0000 95 pli$putechar_ré:: ‘ 
Oc AC 08 C8 0000 96 bisl #atr_m_recur,fcb_l_attr(ap) ;set recursion flag 
OOOOOO1S'EF 9F 0004 97 pushab retputedi push return address | 
7E 50 7D QOOA 98 movg r0,-(sp) Save source 
2D dD 000D 99 pushl #cvt ko src_char zset for char source : 
00000000'GF 17 BOOF 190 sew ain? g*p.i$Sputtmt_r6 get format, convert and output field 
retputedi: 
Oc AC O08 CA $018 196 . bicl #atr_m_recur,fcb_l_attr(ap) ;clear recursion flag 
05 0019 10 rsb 
OO1A 104 | 
OO1A 19? spli$putevcha_ré6 
OO1A 106 ; inputs: 
OO1A §=6107 ;x r0 - address of element to put 
001A 108 ; rl - size/prec of element to put 
OO1A 8109; ril - address of stream block 
QOO1A 110; ap - address of file control block 
OIA 111; outputs: 
th 116 3 _ hone 
1A 1135; side effects: 
OOIA «114; rO-r6 are destroyed 
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pl iSputeyche. r6:: 
fate. m_recur,fcb_l_attr(ap) poet recursion flag 


pushab retputedi spush return address 
mova ro, + ;Save source 

ushl Wevtlk src zset for vchar source 

mp g set TsSputtac. r6 get format, convert and output field 


cps inpuesS r6 


pro - address of element to put 
ri = size/prec of element to put 
2 - offset of bit strin 
rii = address of stream bloc 
ap - address of file control “sisus 
eutoutes 


side vetfect 
r0-r6 ion "destroyed 


pliSputebit_ré:: 
bist #atr_m_recur,fcb_l_attr(ap) ;set recursion flag 


mov l r2.r save offset 

pushab retputedi zspush return address 

movq eo ee tae ;Save source 

pushl #cevtk src_bit zsset for bit source ; 
jmp g*pl *$$put Fmt_ré sget format, convert and output field 


spl 1Seutesd it. r6 
inputs 
tO - address of element to put 
rl = size/prec of element to but 
r11 = address of stream block 
ap - address of file control block 
ators 


Pw ettect 
r0-r6 a  dontreyed 


pliSouteabit_ré:: 
bist” #atr _m_recur,fcb_l_attr(ap) gset recursion flag 


pushed retputedi spush return address 
movq rd, hs ;Save source 
ushl Wevt_k src_abit sset for abit source 


mp g*pli$Sputtmt_ré6 get format, convert and output field 
spl iSputetixb. r6 
input 


‘0 - address of element to put 
rl - size/prec of element to put 
rit - address B stream block 
ap - address of file control block 
outputs: 
none 
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OC AC__ 08 
AF 

7E = =50 

09 
00000000 GF 
Oc AC. 08 
AS AF 

re 3 

1B 
00000000 GF 


OC AC__ 08 
93 AF 
ik: 
00000000 ' GF 
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5 side effects: 


pli$putefixb_ré:: 
bisl 


r0-r6 are destroyed 


Sat? 8 V9CUr. FE8_ A attrtep! pees recursion flag 


pushab retputed ;push return address 

movg r0,-(sp) ;Save source 

pushl *#cvt_k_src_fixb zset for fixb source 

jmp g*pli$$puttmt_ré6 iget format, convert and output field 


spliSputefixd_ré 
; inputs: 


pli$putefixd_ré:: 
bisl 


spli$ 
ip Lisp 


° 
s 


pli$pu 


ipliSp 


ie) 


r0 - address of element to put 

rl = size/prec of element to put 
r11- address of stream block 

ap - address of file control block 


outputs: 
none 
side effects: 


r0-r6 are destroyed 


#atr_m_recur,fcb_l_attr(ap) geet recursion flag 


pushab retputedi zpush return address 

movq r0,-(sp) ;Save source 

pushl #cvt_k_src_fixd sset for fixd source 

jmp g*pli$Sputtmt_ré get format, convert and output field 
utefltb_ré 
nputs: 


r0 - address of element to put 

rl - size/prec of element to put 

ri1- address of stream block 

ap - address of file control block 
utputs: 


none 
ide effects: 
r0-r6 are destroyed 


tefltb_ré:: 
bisl #atr_m_recur,ficb_l_attr(ap) ;set recursion flag 
pushab retputedi spush return address 

movq r0,-(sp) :Save source 

pushl #cvt_k_src_fltb :set for fltb source 

jmp g*plT$$putfmt_ré iget format, convert and output field 


utefltd_ré 
nputs: 
rQ - address of element to put 
rl = size/prec of element to put 
r11 - address of stream block 
ap - address of file control block 
utputs: 
none 
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08D 7 3 side effects: 
8 4 ? 3 r0-r6 are destroyed 
08D § 
D pli$putefltd_ré:: 
Oc AC. O08 C8 D 4 bist” #atr_ m_recur,fcb_l -attr(ap) ;set recursion flag 
81 AF QF 0091 5 pushed retputedi spush return address 
7E 7D Spgs 6 movq r0,-( pe? Save source 
24 op 097 7 pushl Wevt k src_fltd zset for fltd source 
00000000'GF 1 4944 8 mp g*pli$Sputfmt_ré get format, convert and output field 
OF 40 ;pli$pute ie _r6 
Boor Say i Rhtaes 
OO9F tg 3 ro - address of element to put 
OO9F 43; rl = size/prec of element to put 
QO9F 44; r11 = address of stream block 
OO9F 245; ap - address of file control block 
OO9F 46 ; outputs: 
OO9F 47 ; none 
OO9F 48 ; side effects: 
QOO9F 249 ; rO-r6 are destroyed 
OO9F 250 
OO9F 251 f eputenis r6:: 
Oc AC 08 C8 OO9F $26 ist #atr _m_recur,fcb_l_attr(ap) ;set recursion flag 
FF6E CF 9F QOA 25 pushab retputedi push return address 
7E 50 7D QOA 254 movq r0,-(sp) ;Save source 
00 odd 00 255 pushl = #cvt_k src pic zset for pic source 
00000000'GF 17 peat $28 jmp g*plT$$put Fmt_ré get format, convert and output field 
00B2 258 .end 
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GETOPT 
GETOPT 
RETPUTEDI 


PLISPUTEDITITEM 
Psect synopsis 


The working set Limit was 900 pages. 


There were 30 
258 source Lines were read in Pass 1, 


Macro Library name 
-$255$DUA28: 
~$255$DUA28:CSYSLIBISTARLET. MLB; 2 

TOTALS (all Libraries) 


PLIRTL.OBJJPLIRTMAC.MLB; 1 


— ss SEP=1984 AX/VMS 
Sép-1986 11:89:54 EPLIATL 


Macro V04-00 Page 
L.SRCIPLIPUTEDI.MAR; 1 
peewee oceans caee + 
: Psect synopsis ! 


wer en were renee nn} 


PSECT name Allocation PSECT No. Attributes 
» 2S -% 00000000 0.) OO ¢ O.) NOPIC USR CON ABS LCL ao 8 he NOEXE NORD a eee BYTE 
SABSS FFFFFFFC ¢ 0.) O1¢ 1.) NOPIC USR CON ABS LCL NCSHR EXE RD OVEC BYTE 
PLISCODE 00000082 { 178:) 02¢ 2:) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
Camron enone mene nanan wan eae + 
! ;_Per formance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.08 00:00:00.33 
Command processing 77 00:00:00.57 OO Bn SE -e3 
Pass 1 190 00:00:06.57 00:00:15.67 
Syabo} table sort 0 00:00:00.66 00:00:01.42 
ass 2 49 00:00:01.22 00:00:02.11 
Cuabot table output 10 00:00:00.09 00:00:00.15 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 337 00:00:09.21 00:00:21.96 


34430 bytes (68 pages) of virtual memory were used to buffer the intermediate code. 
pages of symbol table space —) Meng) to hold 5 


4 non-local and 0 local symbols. 


producing 10 object records in Pass 2. 


pages of virtual memory were used to define 18 macros. 


623 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=TRACEBACK/LIS=LIS$:PLIPUTEDI/OBJ=OBJ$:PLIPUTEDI] MSRC$:PLIPUTEDI/UPDATE=(ENH$:PLIPUTEDI)+LIBS:PLIRTM 
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